home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / gfa / procdure.lzh / CENTER_T.LST < prev    next >
Encoding:
File List  |  1992-01-16  |  376 b   |  17 lines
  1. PROCEDURE center_text(txt$,screen_line%)
  2.   LOCAL xa%
  3.   IF INT(screen_line%)>0 AND screen_line%<26
  4.     xa%=40
  5.     IF XBIOS(4)
  6.       xa%=80
  7.     ENDIF
  8.     IF LEN(txt$)<xa%
  9.       IF INT(screen_line%)=25
  10.         PRINT AT((xa%-LEN(txt$))/2+1,screen_line%);txt$;
  11.       ELSE
  12.         PRINT AT((xa%-LEN(txt$))/2+1,screen_line%);txt$
  13.       ENDIF
  14.     ENDIF
  15.   ENDIF
  16. RETURN
  17.